home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / HiresAGA.AMOS / HiresAGA.amosSourceCode
Encoding:
AMOS Source Code  |  1995-07-09  |  309 b   |  13 lines
  1. Screen Open 0,640,256,32,0
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  3. Screen Display 0,128,40,320,256
  4. Screen Offset 0,15,0
  5. SB=Screen Base
  6. Doke $DFF1FC,1 : Rem Enable Double Bandwidth
  7. Doke SB+72,Deek(SB+72) or $8000
  8. View 
  9. For A=1 To 100
  10.   Ink A : Circle 320,128,A
  11. Next 
  12. Box 0,0 To 319,255
  13. Box 0,0 To 637,255